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eel I define 
ifdef verifault 

suppress_faults 

enable_portfaults 
endif 

module ROM ( ... ) ; 
output input wire 
reg [3:0] _doutr; 
reg [3:0] rom_data [0:127]; 

// control circuit 

buf ( _H15, H15 ) ; 

//data out 

buf ( N01,_dout [0] ); 
//address 

buf ( _H07, H07 ) ; 
buf ( _H14; H14 ) ; 
and ( _a[6],_H07,_H15 ); 
and ( _ta [6], _H14, _TEB ) ; 
or ( _ad [6], _a [6], _ta [6] ); 
initial 

$readmemh ("file" , rom_data ); 
always @ _ad // read port 

if ( _ad <= 127 ) 

_doutr = rom_data Lad]; 
else 

_doutr = 4'bx; 

specify 

endspecify 
endmodule 
'ifdef verifault 

nosupress_faults 

disable_portfaults 
endif 

endcelldefine 
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module withram (reset, r,w, a, d1, d2 ) ; 
input reset, r,w; 
input [3:0] a; 
input [7:0] d1; 
output [7:0] d2; 

reg [7:0] mymem [15:0], d2; 

integer i; 

always @ reset if (reset) 
for (i=0; i<16; i = i + 1) mymem [i] <= 0; 
always @ (posedgew) mymem [a] <= d1; 
always @ r if (r) d2 <= mymem [a]; 
else d2 <= 0; // read_off is 0 
endmodule 
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module atpgram ( r,w, a, d1, d2 ); 
input r,w; 
input [127:0] a; 
input [7:0] d1; 
output [7:0] d2; 

reg [7:0] mymem [15:0], d2; 

integer i; 
function [6:0] addr_encode; 
input [127:0] addr; // decoded address 
integer n; 
begin 

addr_encode = 7'bx; // init 
for (n=0; n<128; n=n+1) begin 
if (addr [n] ==1) begin 
addr[n] =0; 

if ( I addr == 0) addr_encode=n; 
n = 128; // break 
end 
end 

end 

endfunction 

always @ (posedge w) if (a) 

mymem [addr_encode (a) ] = d1; 
always @ r if (r && a) 

d2 = mymem [addr_encode (a) ]; 

endmodule 
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module withram (reset, r,w, a, d1,d2); 
input reset, r,w; 
input [3:0] a; 
input [7:0] d1; 
output [7:0] d2; 

reg [7:0] mymem [15:0], d2; 

integer i; 

event mymem_update; 

always @ reset if (reset) begin 

for (i=0; i<16; i=i+1) mymem [i] <=0; 

#0; ->mymem_update; end 

always @ (posedge w) begin 

mymem [a] <=d1; #0; ->mymem_update; 

end 

always @ (r or a or mymem_update) 
if (r) d2 <= mymem [a]; 
else d2 <= 8'bO; 
endmodule 1200 




